PC Gamer (Italian) 36/PC Gamer IT CD 36 2-2.iso/utility/pmio12/Pmio.ex_/0/RCDATA/TOPTIONFORM1/TOPTIONFORM1.txt

Text File | 1998-10-17 | 20KB | 741 lines

object OptionForm1: TOptionForm1
  Left = 114
  Top = 95
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  ActiveControl = OkButton
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'User Preferences'
  ClientHeight = 432
  ClientWidth = 517
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Position = poDefaultPosOnly
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 24
    Top = 396
    Width = 32
    Height = 32
    Hint = 'http://www.geocities.com/CapeCanaveral/9725'
    AutoSize = True
    ParentShowHint = False
    Picture.Data = {<image001.ico>}
    ShowHint = True
  end
  object OkButton: TButton
    Left = 254
    Top = 401
    Width = 75
    Height = 26
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
    OnClick = OkButtonClick
  end
  object CancelButton: TButton
    Left = 346
    Top = 401
    Width = 75
    Height = 26
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object PageControl: TPageControl
    Left = 4
    Top = 8
    Width = 508
    Height = 385
    ActivePage = FolderTab
    TabOrder = 0
    OnChange = PageControlChange
    object GeneralTab: TTabSheet
      Caption = ' General '
      object GeneralGroup: TGroupBox
        Left = 16
        Top = 16
        Width = 472
        Height = 333
        TabOrder = 0
        object ImageLabel: TLabel
          Left = 285
          Top = 25
          Width = 182
          Height = 19
          AutoSize = False
          Caption = 'images at the same time'
        end
        object AskEdit: TEdit
          Left = 233
          Top = 22
          Width = 29
          Height = 21
          TabOrder = 1
          Text = '5'
          OnChange = AskEditChange
        end
        object AskUpDown: TUpDown
          Left = 262
          Top = 22
          Width = 16
          Height = 21
          Associate = AskEdit
          Min = 1
          Max = 1000
          Position = 5
          TabOrder = 10
          Thousands = False
          Wrap = False
        end
        object CheckBox4: TCheckBox
          Left = 29
          Top = 46
          Width = 440
          Height = 20
          Caption = 'Ask before &moving image files when thumbnails are dragged'
          TabOrder = 2
        end
        object CheckBox5: TCheckBox
          Left = 29
          Top = 23
          Width = 200
          Height = 20
          Caption = '&Ask before opening more than'
          TabOrder = 0
          OnClick = CheckBox5Click
        end
        object PanelColourButton: TButton
          Left = 20
          Top = 284
          Width = 117
          Height = 26
          Caption = '&Panel Colour...'
          TabOrder = 8
          OnClick = PanelColourButtonClick
        end
        object SelectionColourButton: TButton
          Left = 228
          Top = 284
          Width = 117
          Height = 26
          Caption = 'Selection &Colour...'
          TabOrder = 9
          OnClick = SelectionColourButtonClick
        end
        object ColourPanel1: TPanel
          Left = 140
          Top = 285
          Width = 25
          Height = 25
          BevelOuter = bvLowered
          TabOrder = 11
        end
        object ColourPanel2: TPanel
          Left = 348
          Top = 285
          Width = 25
          Height = 25
          BevelOuter = bvLowered
          TabOrder = 12
        end
        object CheckBox2: TCheckBox
          Left = 29
          Top = 69
          Width = 440
          Height = 20
          Caption = 'Automatically &re-lay thumbnails when window is resized'
          TabOrder = 3
        end
        object CheckBox1: TCheckBox
          Left = 29
          Top = 91
          Width = 440
          Height = 20
          Caption = 'Automatically &scroll to show new thumbnails'
          TabOrder = 4
        end
        object CheckBox7: TCheckBox
          Left = 29
          Top = 114
          Width = 440
          Height = 20
          Caption = 'Show &tooltips'
          TabOrder = 5
        end
        object CheckBox11: TCheckBox
          Left = 29
          Top = 137
          Width = 440
          Height = 20
          Caption = 'Confirm image file &deletion'
          TabOrder = 6
        end
        object GroupBox1: TGroupBox
          Left = 20
          Top = 163
          Width = 353
          Height = 94
          TabOrder = 7
          object CheckBox9: TCheckBox
            Left = 9
            Top = 13
            Width = 296
            Height = 20
            Caption = '&Label thumbnails using the following format:'
            TabOrder = 0
            OnClick = CheckBox9Click
          end
          object LabelEdit: TEdit
            Left = 28
            Top = 36
            Width = 301
            Height = 21
            TabOrder = 1
          end
          object ExampleButton1: TButton
            Left = 29
            Top = 62
            Width = 75
            Height = 24
            Caption = 'Example &1'
            TabOrder = 2
            OnClick = ExampleButton1Click
          end
          object ExampleButton2: TButton
            Left = 142
            Top = 62
            Width = 75
            Height = 24
            Caption = 'Example &2'
            TabOrder = 3
            OnClick = ExampleButton2Click
          end
          object ExampleButton3: TButton
            Left = 254
            Top = 62
            Width = 75
            Height = 24
            Caption = 'Example &3'
            TabOrder = 4
            OnClick = ExampleButton3Click
          end
        end
      end
    end
    object FolderTab: TTabSheet
      Caption = '  Folder  '
      object FolderGroup: TGroupBox
        Left = 16
        Top = 16
        Width = 472
        Height = 333
        ParentShowHint = False
        ShowHint = False
        TabOrder = 0
        object SortByRadioGroup: TRadioGroup
          Left = 20
          Top = 148
          Width = 441
          Height = 101
          Caption = ' Sort thumbnails by '
          Columns = 3
          ItemIndex = 11
          Items.Strings = (
            'Image &width'
            'Image &height'
            'Image de&pth'
            'Image a&rea'
            'File &name'
            'File e&xtension'
            'File da&te'
            'File &size'
            '&Colour temperature'
            'Average &brightness'
            'Aspect rati&o'
            'Do not per&form sort')
          TabOrder = 9
          OnClick = SortRadioGroupClick
        end
        object CheckBox3: TCheckBox
          Left = 29
          Top = 23
          Width = 296
          Height = 20
          Caption = 'Automatically update thumbnails'
          TabOrder = 0
          OnClick = AnyClick
        end
        object SetDefaultsButton: TButton
          Left = 350
          Top = 44
          Width = 109
          Height = 26
          Caption = 'Set Defaults'
          TabOrder = 7
          OnClick = SetDefaultsButtonClick
        end
        object SortDirRadioGroup: TRadioGroup
          Left = 20
          Top = 261
          Width = 297
          Height = 49
          Caption = ' Sort direction '
          Columns = 2
          ItemIndex = 0
          Items.Strings = (
            '&Ascending'
            '&Descending')
          TabOrder = 10
          OnClick = SortRadioGroupClick
        end
        object SortNow: TButton
          Left = 350
          Top = 275
          Width = 109
          Height = 26
          Caption = 'Sort Now'
          TabOrder = 11
          OnClick = SortNowClick
        end
        object UseDefaultsButton: TButton
          Left = 350
          Top = 14
          Width = 109
          Height = 26
          Caption = 'Use Defaults'
          TabOrder = 6
          OnClick = UseDefaultsButtonClick
        end
        object CheckBox8: TCheckBox
          Left = 29
          Top = 69
          Width = 296
          Height = 20
          Caption = 'Automatically save thumbnails to browse file'
          TabOrder = 1
          OnClick = AnyClick
        end
        object CheckBox12: TCheckBox
          Left = 29
          Top = 91
          Width = 296
          Height = 20
          Caption = 'Generate draft quality thumbnails (faster)'
          TabOrder = 3
        end
        object ResetAllFoldersButton: TButton
          Left = 350
          Top = 76
          Width = 109
          Height = 26
          Caption = 'Reset All Folders'
          TabOrder = 8
          OnClick = ResetAllFoldersButtonClick
        end
        object Panel3: TPanel
          Left = 284
          Top = 109
          Width = 181
          Height = 37
          BevelOuter = bvLowered
          TabOrder = 5
          object ThumbnailSizeButton: TSpeedButton
            Left = 66
            Top = 6
            Width = 109
            Height = 26
            AllowAllUp = True
            GroupIndex = 1
            Caption = 'Thumbnail Size'
            ParentShowHint = False
            ShowHint = False
            OnClick = ThumbnailSizeButtonClick
          end
          object SizeEdit: TEdit
            Left = 5
            Top = 8
            Width = 41
            Height = 21
            ParentShowHint = False
            ShowHint = False
            TabOrder = 0
            Text = '0'
            OnChange = SizeEditChange
          end
          object UpDown: TUpDown
            Left = 46
            Top = 8
            Width = 16
            Height = 21
            Associate = SizeEdit
            Min = 0
            Max = 10000
            ParentShowHint = False
            Position = 0
            ShowHint = False
            TabOrder = 1
            Thousands = False
            Wrap = False
            OnChanging = UpDownChanging
          end
        end
        object CheckBox10: TCheckBox
          Left = 29
          Top = 114
          Width = 252
          Height = 20
          Caption = 'Enable dithering'
          TabOrder = 4
        end
        object CheckBox6: TCheckBox
          Left = 29
          Top = 46
          Width = 180
          Height = 20
          Caption = 'Display additional file types:'
          TabOrder = 2
          OnClick = CheckBox6Click
        end
        object TypeEdit: TEdit
          Left = 224
          Top = 46
          Width = 121
          Height = 21
          TabOrder = 12
        end
      end
    end
    object JpegTab: TTabSheet
      Caption = 'JPEG'
      object Label3: TLabel
        Left = 224
        Top = 8
        Width = 269
        Height = 85
        AutoSize = False
        Caption =
          'Set the encoding method and amount of compression that you want ' +
          'to use when creating JPEG files of your thumbnail collection. Th' +
          'ese settings also affect the thumbnails displayed in the browser' +
          '.'
        WordWrap = True
      end
      object QualityGroup: TGroupBox
        Left = 16
        Top = 92
        Width = 472
        Height = 257
        Caption = ' Compression and image quality '
        TabOrder = 0
        object Label1: TLabel
          Left = 344
          Top = 183
          Width = 117
          Height = 22
          Alignment = taCenter
          AutoSize = False
          Caption = 'Smallest file'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 14
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object Label2: TLabel
          Left = 22
          Top = 183
          Width = 107
          Height = 22
          Alignment = taCenter
          AutoSize = False
          Caption = 'Highest quality'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = 14
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Transparent = True
          WordWrap = True
        end
        object Label4: TLabel
          Left = 46
          Top = 233
          Width = 43
          Height = 25
          AutoSize = False
          Caption = '0%'
          Transparent = True
        end
        object Label5: TLabel
          Left = 376
          Top = 233
          Width = 46
          Height = 25
          Alignment = taRightJustify
          AutoSize = False
          Caption = '100%'
          Transparent = True
        end
        object c: TLabel
          Left = 8
          Top = 64
          Width = 79
          Height = 49
          Alignment = taCenter
          AutoSize = False
          Caption = 'Example of original image quality:'
          Transparent = True
          WordWrap = True
        end
        object Label6: TLabel
          Left = 243
          Top = 64
          Width = 79
          Height = 49
          Alignment = taCenter
          AutoSize = False
          Caption = 'Preview of compressed image quality:'
          Transparent = True
          WordWrap = True
        end
        object Label7: TLabel
          Left = 199
          Top = 233
          Width = 73
          Height = 25
          Alignment = taCenter
          AutoSize = False
          Caption = '50%'
          Transparent = True
        end
        object Bevel1: TBevel
          Left = 234
          Top = 12
          Width = 4
          Height = 157
          Shape = bsLeftLine
        end
        object TrackBar: TTrackBar
          Left = 41
          Top = 205
          Width = 389
          Height = 22
          Max = 50
          Orientation = trHorizontal
          Frequency = 1
          Position = 0
          SelEnd = 0
          SelStart = 0
          TabOrder = 0
          TickMarks = tmBottomRight
          TickStyle = tsAuto
          OnChange = TrackBarChange
        end
        object SrcePanel: TPanel
          Left = 85
          Top = 28
          Width = 142
          Height = 130
          BevelOuter = bvLowered
          TabOrder = 2
        end
        object JpegEdit: TEdit
          Left = 222
          Top = 178
          Width = 27
          Height = 21
          TabOrder = 1
          OnChange = JpegEditChange
        end
        object DestPanel: TPanel
          Left = 321
          Top = 29
          Width = 142
          Height = 130
          BevelOuter = bvLowered
          TabOrder = 3
        end
      end
      object EncodingRadioGroup: TRadioGroup
        Left = 16
        Top = 16
        Width = 193
        Height = 61
        Caption = ' Encoding method '
        Columns = 2
        ItemIndex = 0
        Items.Strings = (
          '&Standard'
          '&Progressive')
        TabOrder = 1
      end
    end
    object ApplicationsTab: TTabSheet
      Caption = 'Applications'
      object Label8: TLabel
        Left = 44
        Top = 8
        Width = 405
        Height = 77
        AutoSize = False
        Caption =
          'Add your own applications to this list and they will appear in t' +
          'he '#39'Open With'#39' menus. The first application in the list will be ' +
          'the one that is launched by the '#39'Open'#39' command or when you doubl' +
          'e-click on a thumbnail.'
        Transparent = True
        WordWrap = True
      end
      object DownTool: TToolbarButton97
        Left = 456
        Top = 224
        Width = 23
        Height = 22
        Hint = 'Move item down the list'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000C2500400FA64
          000000FF0000FFD6BB0000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000222222222222
          2222222222202222222222222211022222222222211110222222222211111102
          2222222111110000222222222211022222222222221102222222222222110222
          2222222222110222222222222211022222222222221102222222222222110222
          2222222222110222222222222211022222222222222222222222}
        ParentShowHint = False
        ShowHint = True
        OnClick = DownToolClick
      end
      object UpTool: TToolbarButton97
        Left = 424
        Top = 224
        Width = 23
        Height = 22
        Hint = 'Move item up the list'
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000120B0000120B00001000000010000000C2500400FA64
          000000FF0000FFD6BB0000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000222222222222
          2222222222110222222222222211022222222222221102222222222222110222
          2222222222110222222222222211022222222222221102222222222222110222
          2222222222110222222222211111000022222222111111022222222221111022
          2222222222110222222222222220222222222222222222222222}
        ParentShowHint = False
        ShowHint = True
        OnClick = UpToolClick
      end
      object AddButton: TButton
        Left = 412
        Top = 88
        Width = 83
        Height = 25
        Caption = '&Add...'
        TabOrder = 1
        OnClick = AddButtonClick
      end
      object ModifyButton: TButton
        Left = 412
        Top = 120
        Width = 83
        Height = 25
        Caption = 'M&odify...'
        TabOrder = 2
        OnClick = ModifyButtonClick
      end
      object RemoveButton: TButton
        Left = 412
        Top = 152
        Width = 83
        Height = 25
        Caption = '&Remove'
        TabOrder = 3
        OnClick = RemoveButtonClick
      end
      object LaunchNowButton: TButton
        Left = 412
        Top = 184
        Width = 83
        Height = 25
        Caption = '&Launch Now'
        TabOrder = 4
        OnClick = LaunchNowButtonClick
      end
      object StringGrid: TStringGrid
        Left = 5
        Top = 88
        Width = 398
        Height = 261
        ColCount = 3
        DefaultColWidth = 198
        DefaultRowHeight = 16
        RowCount = 15
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goEditing]
        TabOrder = 0
        OnSelectCell = StringGridSelectCell
        OnSetEditText = StringGridSetEditText
        ColWidths = (
          19
          120
          251)
      end
    end
  end
  object HelpButton: TButton
    Left = 437
    Top = 401
    Width = 75
    Height = 26
    Caption = 'Help'
    TabOrder = 3
    OnClick = HelpButtonClick
  end
  object ColorDialog: TColorDialog
    Ctl3D = True
    Options = [cdFullOpen, cdShowHelp, cdAnyColor]
    Left = 113
    Top = 388
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 250
    OnTimer = Timer1Timer
    Left = 176
    Top = 388
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'exe'
    FileEditStyle = fsEdit
    Filter = 'Executable files (*.exe)|*.exe|All files (*.*)|*.*'
    FilterIndex = 0
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Choose application file'
    Left = 448
    Top = 300
  end
  object Timer2: TTimer
    Interval = 10
    OnTimer = Timer2Timer
    Left = 216
    Top = 388
  end
end